inherited FCobrancaProgramada: TFCobrancaProgramada
  Left = 246
  Top = 166
  Height = 535
  Caption = 'Cobran'#231'a programada'
  Constraints.MinHeight = 535
  Constraints.MinWidth = 819
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    Height = 501
    ActivePage = TsCadastro
    TabIndex = 1
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        Top = 413
      end
      inherited dbgPesquisaPadra: TDBGrid
        Height = 356
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        Height = 470
        inherited panel2: TPanel
          inherited SBAtualiza: TSpeedButton
            Left = 815
          end
          inherited DBNavigator1: TDBNavigator
            Left = 700
            Hints.Strings = ()
          end
          inherited streg: TStaticText
            Left = 575
          end
        end
        inherited panel3: TPanel
          Top = 411
          Height = 58
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
          inherited BtnSalvar: TBitBtn
            Left = 634
            Top = 21
          end
          inherited BtnCancelar: TBitBtn
            Top = 21
          end
          inherited stSituacaoReg2: TStaticText
            Left = 295
          end
        end
        object PageControl1: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 375
          ActivePage = TSFinanceiro
          Align = alClient
          TabIndex = 0
          TabOrder = 2
          OnChange = PageControl1Change
          object TSFinanceiro: TTabSheet
            Caption = 'Contas Receber'
            object Label1: TLabel
              Left = 2
              Top = 4
              Width = 40
              Height = 16
              Caption = 'Codigo'
            end
            object Label5: TLabel
              Left = 433
              Top = 4
              Width = 94
              Height = 16
              Caption = 'Tipo Documento'
            end
            object Label6: TLabel
              Left = 63
              Top = 58
              Width = 40
              Height = 16
              Caption = 'Cliente'
            end
            object Label7: TLabel
              Left = 433
              Top = 54
              Width = 49
              Height = 16
              Caption = 'Portador'
            end
            object Label8: TLabel
              Left = 63
              Top = 112
              Width = 141
              Height = 16
              Caption = 'Classifica'#231#227'o Financeira'
            end
            object DBText1: TDBText
              Left = 2
              Top = 23
              Width = 80
              Height = 21
              DataField = 'CODIGO'
              DataSource = dsCadastro
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label4: TLabel
              Left = 433
              Top = 161
              Width = 51
              Height = 16
              Caption = 'Hist'#243'rico'
            end
            object Label13: TLabel
              Left = 433
              Top = 112
              Width = 94
              Height = 16
              Caption = 'Centro de Custo'
            end
            object Label17: TLabel
              Left = 63
              Top = 166
              Width = 85
              Height = 16
              Caption = 'Conta Cont'#225'bil'
            end
            object DBText3: TDBText
              Left = 165
              Top = 166
              Width = 50
              Height = 16
              AutoSize = True
              DataField = 'PLANOCONT_CODIGOCONTABIL'
            end
            object Label18: TLabel
              Left = 63
              Top = 4
              Width = 103
              Height = 16
              Caption = 'Fonte de Recurso'
            end
            object Label3: TLabel
              Left = 550
              Top = 278
              Width = 140
              Height = 16
              Caption = 'Dia do(s) Vencimento(s)'
              FocusControl = DBEDiaVencimento
            end
            object Label10: TLabel
              Left = 550
              Top = 249
              Width = 30
              Height = 16
              Caption = 'Valor'
              FocusControl = DBEValor
            end
            object DBLCBCliente: TDBLookupComboBox
              Left = 63
              Top = 74
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'CLIENTE'
              DataSource = dsCadastro
              KeyField = 'CLI_CODIGO'
              ListField = 'CLI_RAZAO'
              ListSource = DSCliente
              ParentCtl3D = False
              TabOrder = 2
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBLCBTipoDocumento: TDBLookupComboBox
              Left = 433
              Top = 23
              Width = 339
              Height = 22
              Ctl3D = False
              DataField = 'TIPODOCUMENTO'
              DataSource = dsCadastro
              KeyField = 'TIPO_DOC_CODIGO'
              ListField = 'TIPO_DOC_DESCRICAO'
              ListSource = DSTipoDocumento
              ParentCtl3D = False
              TabOrder = 1
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBLCBPortador: TDBLookupComboBox
              Left = 433
              Top = 74
              Width = 339
              Height = 22
              Ctl3D = False
              DataField = 'PORTADOR'
              DataSource = dsCadastro
              KeyField = 'PORT_CODIGO'
              ListField = 'PORT_DESCRICAO'
              ListSource = DSPortador
              ParentCtl3D = False
              TabOrder = 3
              OnEnter = DBLCBPortadorEnter
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBLCBPlano: TDBLookupComboBox
              Left = 63
              Top = 129
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'PLANO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSPlano
              ParentCtl3D = False
              TabOrder = 4
              OnExit = DBLCBPlanoExit
            end
            object DBLCBCentroCusto: TDBLookupComboBox
              Left = 433
              Top = 129
              Width = 339
              Height = 22
              Ctl3D = False
              DataField = 'CENTROCUSTO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSCentro
              ParentCtl3D = False
              TabOrder = 5
              OnEnter = DBLCBCentroCustoEnter
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBLCBContaContabil: TDBLookupComboBox
              Left = 63
              Top = 183
              Width = 338
              Height = 22
              Hint = '(F7 - Todo , F8 -Relacionados)'
              Ctl3D = False
              DataField = 'CONTACONTABIL'
              DataSource = dsCadastro
              KeyField = 'PLANOCONT_CODIGO'
              ListField = 'PLANOCONT_DESCRICAO'
              ListSource = DSPlanoContabil
              ParentCtl3D = False
              TabOrder = 6
              OnClick = DBLCBContaContabilClick
              OnKeyDown = DBLCBContaContabilKeyDown
              OnKeyUp = DBLCBContaContabilKeyUp
            end
            object DBCheckBox3: TDBCheckBox
              Left = 550
              Top = 308
              Width = 116
              Height = 21
              Caption = 'Emite Boleto'
              DataField = 'EMITEBOLETO'
              DataSource = dsCadastro
              TabOrder = 12
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object DBLFonteRecurso: TDBLookupComboBox
              Tag = 5
              Left = 63
              Top = 23
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'FONTERECURSO'
              DataSource = dsCadastro
              KeyField = 'FONT_CODIGO'
              ListField = 'FONT_DESCRICAO'
              ListSource = dsFonteRecurso
              ParentCtl3D = False
              TabOrder = 0
            end
            object DBEHistorico: TDBEdit
              Left = 432
              Top = 183
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'HISTORICO1'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 7
            end
            object DBEHistorico2: TDBEdit
              Left = 432
              Top = 206
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'HISTORICO2'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 8
            end
            object DBEDiaVencimento: TDBEdit
              Left = 692
              Top = 278
              Width = 48
              Height = 22
              Ctl3D = False
              DataField = 'DIAVENCIMENTO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 11
            end
            object DBEValor: TDBEdit
              Left = 692
              Top = 249
              Width = 92
              Height = 22
              Ctl3D = False
              DataField = 'VALOR'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 10
            end
            object GBPeriodoValidade: TGroupBox
              Left = 10
              Top = 236
              Width = 527
              Height = 90
              Caption = '  Per'#237'odo de Validade  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 9
              object Label11: TLabel
                Left = 174
                Top = 36
                Width = 7
                Height = 16
                Caption = #224
              end
              object Label2: TLabel
                Left = 5
                Top = 36
                Width = 16
                Height = 16
                Caption = 'De'
              end
              object Label12: TLabel
                Left = 378
                Top = 15
                Width = 65
                Height = 16
                Caption = 'M'#234's Inativo'
              end
              object SpeedButton5: TSpeedButton
                Tag = 1
                Left = 325
                Top = 36
                Width = 26
                Height = 26
                Hint = 'C'#225'lculo M'#234's/ ano Final'
                Caption = '!'
                OnClick = SpeedButton5Click
              end
              object DTPeriodoValidadeIni: TDateTimePicker
                Left = 28
                Top = 36
                Width = 136
                Height = 21
                CalAlignment = dtaLeft
                Date = 37865.4079415162
                Format = 'MMMM yyyy'
                Time = 37865.4079415162
                DateFormat = dfShort
                DateMode = dmUpDown
                Kind = dtkDate
                ParseInput = False
                TabOrder = 0
                OnEnter = DTPeriodoValidadeIniEnter
              end
              object DTPeriodoValidadeFin: TDateTimePicker
                Left = 191
                Top = 36
                Width = 135
                Height = 21
                CalAlignment = dtaLeft
                Date = 37926.4079415162
                Format = 'MMMM yyyy'
                Time = 37926.4079415162
                DateFormat = dfShort
                DateMode = dmUpDown
                Kind = dtkDate
                ParseInput = False
                TabOrder = 1
                OnEnter = DTPeriodoValidadeIniEnter
              end
              object DTDataInativo: TDateTimePicker
                Left = 378
                Top = 36
                Width = 135
                Height = 21
                CalAlignment = dtaLeft
                Date = 36750.4079415162
                Format = 'MMMM yyyy'
                Time = 36750.4079415162
                DateFormat = dfShort
                DateMode = dmUpDown
                Kind = dtkDate
                ParseInput = False
                TabOrder = 2
                OnEnter = DTPeriodoValidadeIniEnter
                OnKeyDown = DTDataInativoKeyDown
              end
            end
          end
          object TSNotaFiscalvenda: TTabSheet
            Caption = 'Nota Fiscal Venda'
            ImageIndex = 1
            object Label24: TLabel
              Left = 2
              Top = 34
              Width = 47
              Height = 16
              Caption = 'Produto'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label16: TLabel
              Left = 2
              Top = 80
              Width = 42
              Height = 16
              Caption = 'Servi'#231'o'
            end
            object Label9: TLabel
              Left = 2
              Top = 172
              Width = 127
              Height = 16
              Caption = 'Forma De Pagamento'
              FocusControl = DBEFormaPagamento
            end
            object DBChBGeraNotaFiscal: TDBCheckBox
              Left = 2
              Top = 10
              Width = 120
              Height = 21
              Caption = 'Gera Nota Fiscal'
              DataField = 'GERANOTAFISCALVENDA'
              DataSource = dsCadastro
              TabOrder = 0
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object DBLCBProduto: TDBLookupComboBox
              Left = 2
              Top = 50
              Width = 600
              Height = 22
              Hint = '(F3) Visualizar Descri'#231#227'o'
              Ctl3D = False
              DataField = 'PRODUTO'
              DataSource = dsCadastro
              KeyField = 'PROD_CODIGO'
              ListField = 'PROD_DESCRICAOSAI'
              ListSource = DSProduto
              ParentCtl3D = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              OnKeyDown = DBLCBClienteKeyDown
            end
            object DBMServico: TDBMemo
              Left = 2
              Top = 98
              Width = 600
              Height = 67
              Ctl3D = False
              DataField = 'SERVICO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = DBMServicoEnter
            end
            object DBEFormaPagamento: TDBEdit
              Left = 2
              Top = 192
              Width = 295
              Height = 22
              Ctl3D = False
              DataField = 'FORMAPAGAMENTO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 3
            end
            object DBCheckBox1: TDBCheckBox
              Left = 318
              Top = 187
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm  ISS'
              DataField = 'RETEMISS'
              DataSource = dsCadastro
              TabOrder = 4
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object DBCheckBox2: TDBCheckBox
              Left = 453
              Top = 187
              Width = 119
              Height = 21
              Caption = 'Abate Reten'#231#227'o'
              DataField = 'ABATERETENCAO'
              DataSource = dsCadastro
              TabOrder = 5
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
          end
        end
      end
    end
  end
  inherited QCadastro: TQuery
    AfterInsert = QCadastroAfterInsert
    SQL.Strings = (
      'Select * from Cobranca_Programada')
    object QCadastroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroTIPODOCUMENTO: TIntegerField
      FieldName = 'TIPODOCUMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.TIPODOCUMENTO'
    end
    object QCadastroCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CLIENTE'
    end
    object QCadastroPORTADOR: TIntegerField
      FieldName = 'PORTADOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PORTADOR'
    end
    object QCadastroPLANO: TIntegerField
      FieldName = 'PLANO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PLANO'
    end
    object QCadastroDIAVENCIMENTO: TStringField
      FieldName = 'DIAVENCIMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DIAVENCIMENTO'
      Size = 2
    end
    object QCadastroVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.VALOR'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGOEMPRESA'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAMODIFICACAO'
    end
    object QCadastroCENTROCUSTO: TIntegerField
      FieldName = 'CENTROCUSTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CENTROCUSTO'
    end
    object QCadastroHISTORICO1: TStringField
      FieldName = 'HISTORICO1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO1'
      Size = 52
    end
    object QCadastroHISTORICO2: TStringField
      FieldName = 'HISTORICO2'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO2'
      Size = 52
    end
    object QCadastroCONTACONTABIL: TIntegerField
      FieldName = 'CONTACONTABIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CONTACONTABIL'
    end
    object QCadastroPERIODOVALIDADEINI: TDateTimeField
      FieldName = 'PERIODOVALIDADEINI'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEINI'
    end
    object QCadastroPERIODOVALIDADEFIN: TDateTimeField
      FieldName = 'PERIODOVALIDADEFIN'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEFIN'
    end
    object QCadastroDATAINATIVO: TDateTimeField
      FieldName = 'DATAINATIVO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAINATIVO'
    end
    object QCadastroGERANOTAFISCALVENDA: TSmallintField
      FieldName = 'GERANOTAFISCALVENDA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.GERANOTAFISCALVENDA'
    end
    object QCadastroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PRODUTO'
    end
    object QCadastroSERVICO: TStringField
      FieldName = 'SERVICO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.SERVICO'
      Size = 200
    end
    object QCadastroFORMAPAGAMENTO: TStringField
      FieldName = 'FORMAPAGAMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FORMAPAGAMENTO'
      Size = 40
    end
    object QCadastroABATERETENCAO: TSmallintField
      FieldName = 'ABATERETENCAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.ABATERETENCAO'
    end
    object QCadastroRETEMISS: TSmallintField
      FieldName = 'RETEMISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.RETEMISS'
    end
    object QCadastroEMITEBOLETO: TSmallintField
      FieldName = 'EMITEBOLETO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EMITEBOLETO'
    end
    object QCadastroFONTERECURSO: TIntegerField
      FieldName = 'FONTERECURSO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FONTERECURSO'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_RECUPERACAO'
    end
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    BeforePost = cdsCadastroBeforePost
    object cdsCadastroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object cdsCadastroTIPODOCUMENTO: TIntegerField
      FieldName = 'TIPODOCUMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.TIPODOCUMENTO'
    end
    object cdsCadastroCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CLIENTE'
    end
    object cdsCadastroPORTADOR: TIntegerField
      FieldName = 'PORTADOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PORTADOR'
    end
    object cdsCadastroPLANO: TIntegerField
      FieldName = 'PLANO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PLANO'
    end
    object cdsCadastroDIAVENCIMENTO: TStringField
      FieldName = 'DIAVENCIMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DIAVENCIMENTO'
      Size = 2
    end
    object cdsCadastroVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.VALOR'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGOEMPRESA'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAMODIFICACAO'
    end
    object cdsCadastroCENTROCUSTO: TIntegerField
      FieldName = 'CENTROCUSTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CENTROCUSTO'
    end
    object cdsCadastroHISTORICO1: TStringField
      FieldName = 'HISTORICO1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO1'
      Size = 52
    end
    object cdsCadastroHISTORICO2: TStringField
      FieldName = 'HISTORICO2'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO2'
      Size = 52
    end
    object cdsCadastroCONTACONTABIL: TIntegerField
      FieldName = 'CONTACONTABIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CONTACONTABIL'
    end
    object cdsCadastroPERIODOVALIDADEINI: TDateTimeField
      FieldName = 'PERIODOVALIDADEINI'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEINI'
    end
    object cdsCadastroPERIODOVALIDADEFIN: TDateTimeField
      FieldName = 'PERIODOVALIDADEFIN'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEFIN'
    end
    object cdsCadastroDATAINATIVO: TDateTimeField
      FieldName = 'DATAINATIVO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAINATIVO'
    end
    object cdsCadastroGERANOTAFISCALVENDA: TSmallintField
      FieldName = 'GERANOTAFISCALVENDA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.GERANOTAFISCALVENDA'
    end
    object cdsCadastroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PRODUTO'
    end
    object cdsCadastroSERVICO: TStringField
      FieldName = 'SERVICO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.SERVICO'
      Size = 200
    end
    object cdsCadastroFORMAPAGAMENTO: TStringField
      FieldName = 'FORMAPAGAMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FORMAPAGAMENTO'
      Size = 40
    end
    object cdsCadastroABATERETENCAO: TSmallintField
      FieldName = 'ABATERETENCAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.ABATERETENCAO'
    end
    object cdsCadastroRETEMISS: TSmallintField
      FieldName = 'RETEMISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.RETEMISS'
    end
    object cdsCadastroEMITEBOLETO: TSmallintField
      FieldName = 'EMITEBOLETO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EMITEBOLETO'
    end
    object cdsCadastroFONTERECURSO: TIntegerField
      FieldName = 'FONTERECURSO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FONTERECURSO'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_RECUPERACAO'
    end
  end
  object QCobrancaprogramada: TQuery
    Active = True
    AfterPost = QCobrancaprogramadaAfterPost
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from Cobranca_Programada')
    Left = 212
    Top = 216
  end
  object DSCobrancaprogramada: TDataSource
    DataSet = QCobrancaprogramada
    Left = 244
    Top = 216
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 88
    Top = 368
  end
  object DSTipoDocumento: TDataSource
    DataSet = DMFinanceiro.QTipoDocumento
    Left = 144
    Top = 384
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 200
    Top = 368
  end
  object DSPlano: TDataSource
    DataSet = DMFinanceiro.QPlanoEntrada
    Left = 584
    Top = 376
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 552
    Top = 376
  end
  object QPlanoContabil: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from PlanoContabilidade'
      'Where CodigoEmpresa = :Emp'
      'Order By PlanoCont_CodigoContabil')
    Left = 454
    Top = 370
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object DSPlanoContabil: TDataSource
    DataSet = QPlanoContabil
    Left = 486
    Top = 370
  end
  object QProduto: TQuery
    Active = True
    AfterPost = QCobrancaprogramadaAfterPost
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * From produto'
      'where PROD_TIPO = 1'
      ''
      'order By Prod_DescricaoSai')
    Left = 236
    Top = 368
  end
  object DSProduto: TDataSource
    DataSet = QProduto
    Left = 292
    Top = 368
  end
  object dsFonteRecurso: TDataSource
    DataSet = DMFinanceiro.QFonteRecurso
    Left = 502
    Top = 221
  end
end
